home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / biz / misc / Brokerrexx.lha / GETQUOTES.RX < prev    next >
Text File  |  1997-12-17  |  561b  |  20 lines
  1. /* Arrexx script to get current stock values for various companies*/ 
  2. /*Feel free to modify for your own needs                          */
  3. /* ## $VER:1.15 © N.Veitch                                        */
  4. OPTIONS RESULTS
  5. IF ~OPEN("DATAFILE", "REXXSCRIPTS:STOCKLIST.RXDATA", "READ") THEN DO
  6.     SAY "DATA FILE MISSING!"
  7.     EXIT
  8.     END
  9. DO UNTIL EOF("DATAFILE")
  10.     LINE = READLN("DATAFILE")
  11.     EPIC = WORD(LINE,1)
  12.     NAME = WORD(LINE,2)
  13.     ADDRESS "IBROWSE"
  14.         URLNAME = "http://www.esi.co.uk/free/stock.cgi/"||EPIC
  15.     GOTOURL  URL URLNAME SAVE
  16. END
  17. CLOSE("DATAFILE")
  18. EXIT
  19.  
  20.